home *** CD-ROM | disk | FTP | other *** search
- interface to integer*4 function dayofwk (y, m, d)
- integer*4 y, m, d
- end
- interface to integer*4 function dayofyr (y, m, d)
- integer*4 y, m, d
- end
- interface to integer*4 function julday (y, m, d)
- integer*4 y, m, d
- end
- interface to integer*4 function first_mon (y, m)
- integer*4 y, m
- end
- interface to subroutine calndr1 (dayofyr, y, m, d)
- integer*4 dayofyr, y, m, d
- end
- interface to subroutine calndrj (julday, y, m, d)
- integer*4 julday, y, m, d
- end